home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / macmenus.arc / WPMM313L.DEF < prev    next >
Text File  |  1989-06-03  |  41KB  |  1,318 lines
  1. ;WP 5.0 LOGIMENU/WINDOWS-LIKE INTERFACE TO EMULATE WP MAC 1.0.2 COMMANDS
  2. ;USE THE WINDOWS/MACINTOSH CONCEPT OF BLOCK SELECTION PRIOR TO COMMAND
  3. ;SELECTION WHERE APPROPRIATE (3 BUTTON MOUSE), 25 LINE DISPLAY
  4. ;(c) D.PETHERICK (73627,226) MAY 31/89 version 3.1
  5. ;FOR 35,40,43,50 (ie. XX) LINE DISPLAYS, REPLACE <MATCH 25> WITH <MATCH XX>
  6. ;THROUGHOUT THIS .DEF FILE THEN RECOMPILE USING NEWMENU.EXE
  7.  
  8. BEGIN af4,macmenu,nul,mousel,mouser,mouseu,moused,64,64
  9.  
  10. mousel:    TYPE 0,75                ;left
  11. mouser:    TYPE 0,77                ;right
  12. mouseu:    TYPE 0,72                ;up
  13. moused:    TYPE 0,80                ;down
  14.  
  15. ;      LMB  LRB  MRB   ALLB
  16. CHORDS f7,entr,f1,quitsave
  17.  
  18. entr:    TYPE ENTER
  19. nul:        NOTHING
  20. quitsave:    TYPE 0,65        ;exit
  21.  
  22. macmenu:    POPUP 1,3,INVERSE
  23.  
  24. ;      23456789012345678901234567890123456789012345678901234567
  25. TEXT "╔═════════════════════════════════════════════════════════╦════════════╗"
  26. TEXT "║Help  File  Edit  Search  Format  Font  Special  Windows ║*WP5MACMENU*║█"
  27. TEXT "╟─┬─┬─┬─┬─┬─┬──┬──╔═══════════════════════════════════════╩══════[3.1]═╝█"
  28. TEXT "║P│B│U│I│O│S│S│S║██████████████████████████████████████████████████████"
  29. TEXT "╚═╧═╧═╧═╧═╧═╧══╧══╝█"
  30. TEXT "████████████████████"
  31.  
  32.  
  33.         SELECT 2,2,4, helpmenu1
  34.         SELECT 2,8,4, filemenu
  35.         SELECT 2,14,4, editmenu
  36.         SELECT 2,20,6, searchmenu
  37.         SELECT 2,28,6, formatmenu
  38.         SELECT 2,36,4, fontmenu
  39.         SELECT 2,42,7, specialmenu
  40.         SELECT 2,51,7, windowsmenu
  41.         SELECT 4,2,1,  ptproc
  42.         SELECT 4,4,1,  boproc
  43.         SELECT 4,6,1,  unproc
  44.         SELECT 4,8,1,  itproc
  45.         SELECT 4,10,1, otproc
  46.         SELECT 4,12,1, shproc
  47.         SELECT 4,14,2, spproc
  48.         SELECT 4,17,2, sbproc
  49.         PEND
  50.  
  51. helpmenu1:    POPUP 2,3,INVERSE
  52.  
  53.             TEXT "┌[Help]──────────┐"
  54.             TEXT "│WordPerfect Help   │█"
  55.             TEXT "│Logitech Mouse Help│█"
  56.             TEXT "│About WP5MACMENU... │█"
  57.             TEXT "└────────────────────┘█"
  58.             TEXT "███████████████████████"
  59.  
  60.  
  61.             SELECT 1,2,4,helpexit
  62.             SELECT 2,2,20,helpexec
  63.             SELECT 3,2,20,lmousehelp
  64.             SELECT 4,2,20,aboutmsg
  65.             PEND
  66.  
  67. helpexit:        EXECUTE entr,backspc,macmenu
  68. helpexec:        EXECUTE f3,helpmenu2
  69. backspc:        TYPE BACKSP
  70.  
  71. helpmenu2:    POPUP 1,10,INVERSE
  72.  
  73. TEXT "┌[WordPerfect Help]─────────────────────────────────────────┐"
  74. TEXT "│ Control-Fn   Alt-Fn        Shift-Fn      Fn alone             │█"
  75. TEXT "╞══════════════════════════════════════════════════════╗        │█"
  76. TEXT "│ Shell        Thesaurus     Setup         Cancel      ║  (F1)  │█"
  77. TEXT "│ Spell        Replace       <Search       >Search     ║  (F2)  │█"
  78. TEXT "│ Screen       Reveal Codes  Switch        Help        ║  (F3)  │█"
  79. TEXT "│ Move         Block         >Indent<      >Indent     ║  (F4)  │█"
  80. TEXT "│ Text In/Out  Mark Text     Date/Outline  List Files  ║  (F5)  │█"
  81. TEXT "│ Tab Align    Flush Right   Center        Bold        ║  (F6)  │█"
  82. TEXT "│ Footnote     Math/Columns  Print         Exit        ║  (F7)  │█"
  83. TEXT "│ Font         Style         Format        Underline   ║  (F8)  │█"
  84. TEXT "│ Merge/Sort   Graphics      Merge Codes   Merge R     ║  (F9)  │█"
  85. TEXT "│ Macro Define Macro         Retrieve      Save        ║  (F10) │█"
  86. TEXT "│ Compose                                              ║  (^V)  │█"
  87. TEXT "├────────────────────────────────────────────────┐    ┌╨────────┤█"
  88. TEXT "│ SELECT ITEM FOR HELP - <spacebar> or <enter> or│EXIT│to leave │█"
  89. TEXT "└────────────────────────────────────────────────┴────┴─────────┘█"
  90. TEXT "╟─┬─┬─┬─┬─┬─┬──┬──╔    ┌─Plain Text ┐█████████████████████████████"
  91. TEXT "║P│B│U│I│O│S│S│S║    │ Bold       │█"
  92. TEXT "╚═╧═╧═╧═╧═╧═╧══╧══╝    │ Underline  │█"
  93. TEXT " └┬──────────────┴─────┤ Italic     │█"
  94. TEXT "  │                    │ Outline    │█"
  95. TEXT "  └ Quick Character    │ Shadow     │█"
  96. TEXT "    Style Selector     │ Superscript│█"
  97. TEXT "                       └ Subscript  ┘█"
  98. TEXT "██████████████████████████████████████"
  99.  
  100.             SELECT 1,2,4,helpmenu1
  101.             SELECT 4,3,12,cf1
  102.             SELECT 5,3,12,cf2
  103.             SELECT 6,3,12,cf3
  104.             SELECT 7,3,12,cf4
  105.             SELECT 8,3,12,cf5
  106.             SELECT 9,3,12,cf6
  107.             SELECT 10,3,12,cf7
  108.             SELECT 11,3,12,cf8
  109.             SELECT 12,3,12,cf9
  110.             SELECT 13,3,12,cf10
  111.             SELECT 14,3,12,composehlp
  112.             SELECT 4,16,12,af1
  113.             SELECT 5,16,12,af2
  114.             SELECT 6,16,12,af3
  115.             SELECT 7,16,12,af4
  116.             SELECT 8,16,12,af5
  117.             SELECT 9,16,12,af6
  118.             SELECT 10,16,12,af7
  119.             SELECT 11,16,12,af8
  120.             SELECT 12,16,12,af9
  121.             SELECT 13,16,12,af10
  122.             SELECT 4,30,12,sf1
  123.             SELECT 5,30,12,sf2
  124.             SELECT 6,30,12,sf3
  125.             SELECT 7,30,12,sf4
  126.             SELECT 8,30,12,sf5
  127.             SELECT 9,30,12,sf6
  128.             SELECT 10,30,12,sf7
  129.             SELECT 11,30,12,sf8
  130.             SELECT 12,30,12,sf9
  131.             SELECT 13,30,12,sf10
  132.             SELECT 4,44,12,f1
  133.             SELECT 5,44,12,f2
  134.             SELECT 6,44,12,f3
  135.             SELECT 7,44,12,f4
  136.             SELECT 8,44,12,f5
  137.             SELECT 9,44,12,f6
  138.             SELECT 10,44,12,f7
  139.             SELECT 11,44,12,f8
  140.             SELECT 12,44,12,f9
  141.             SELECT 13,44,12,f10
  142.             SELECT 16,51,4,exithelp
  143.             PEND
  144.  
  145. exithelp:        EXECUTE entr,backspc
  146.  
  147. cf1:            TYPE 0,94            ;control-Fn 1-10
  148. cf2:            TYPE 0,95
  149. cf3:            TYPE 0,96
  150. cf4:            TYPE 0,97
  151. cf5:            TYPE 0,98
  152. cf6:            TYPE 0,99
  153. cf7:            TYPE 0,100
  154. cf8:            TYPE 0,101
  155. cf9:            TYPE 0,102
  156. cf10:        TYPE 0,103
  157. composehlp:    TYPE 22            ;control-V
  158. af1:            TYPE 0,104        ;alt-Fn 1-10
  159. af2:            TYPE 0,105
  160. af3:            TYPE 0,106
  161. af4:            TYPE 0,107
  162. af5:            TYPE 0,108
  163. af6:            TYPE 0,109
  164. af7:            TYPE 0,110
  165. af8:            TYPE 0,111
  166. af9:            TYPE 0,112
  167. af10:        TYPE 0,113
  168. sf1:            TYPE 0,84            ;shift-Fn 1-10
  169. sf2:            TYPE 0,85
  170. sf3:            TYPE 0,86
  171. sf4:            TYPE 0,87
  172. sf5:            TYPE 0,88
  173. sf6:            TYPE 0,89
  174. sf7:            TYPE 0,90
  175. sf8:            TYPE 0,91
  176. sf9:            TYPE 0,92
  177. sf10:        TYPE 0,93
  178. f1:            TYPE 0,59            ;Fn 1-10
  179. f2:            TYPE 0,60
  180. f3:            TYPE 0,61
  181. f4:            TYPE 0,62
  182. f5:            TYPE 0,63
  183. f6:            TYPE 0,64
  184. f7:            TYPE 0,65
  185. f8:            TYPE 0,66
  186. f9:            TYPE 0,67
  187. f10:            TYPE 0,68
  188.  
  189. lmousehelp:    POPUP 4,10,INVERSE
  190.  
  191.             TEXT "┌[Logitech Mouse Help]──────────────┐"
  192.             TEXT "│          Mouse Button Help            │█"
  193.             TEXT "│ L M R - ( █ = Pressed, ░ = Released)  │█"
  194.             TEXT "├───────────────────────────────────────┤█"
  195.             TEXT "│ █ ░ ░ - Block On/Off                  │█"
  196.             TEXT "│                                       │█"
  197.             TEXT "│ ░ █ ░ - Main Menu                     │█"
  198.             TEXT "│                                       │█"
  199.             TEXT "│ ░ ░ █ - Select Menu Item              │█"
  200.             TEXT "│                                       │█"
  201.             TEXT "│ █ █ ░ - WP5 Exit Function (F7)        │█"
  202.             TEXT "│                                       │█"
  203.             TEXT "│ █ ░ █ - Enter Key                     │█"
  204.             TEXT "│                                       │█"
  205.             TEXT "│ ░ █ █ - WP5 Cancel Function (F1)      │█"
  206.             TEXT "│                                       │█"
  207.             TEXT "│ █ █ █ - Quit WP5, SAVE IF NECESSARY   │█"
  208.             TEXT "└───────────────────────────────────────┘█"
  209.             TEXT "██████████████████████████████████████████"
  210.  
  211.             SELECT 1,2,4,helpmenu1
  212.             PEND
  213.  
  214.  
  215. filemenu:        POPUP 2,9,INVERSE
  216.  
  217.             TEXT "┌[File]──────────┐"
  218.             TEXT "│New        (No Save)│█"
  219.             TEXT "│Open...             │█"
  220.             TEXT "│Retrieve...         │█"
  221.             TEXT "│Close               │█"
  222.             TEXT "│Save                │█"
  223.             TEXT "│Save Selection As...│█"
  224.             TEXT "│Save Copy As...     │█"
  225.             TEXT "│File Management...  │█"
  226.             TEXT "│Print Options      │█"
  227.             TEXT "│Print...            │█"
  228.             TEXT "│WP Defaults        │█"
  229.             TEXT "│Transfer... (to DOS)│█"
  230.             TEXT "│Quit                │█"
  231.             TEXT "└────────────────────┘█"
  232.             TEXT "███████████████████████"
  233.  
  234.             SELECT 1,2,4,macmenu
  235.             SELECT 2,2,20,newproc
  236.             SELECT 3,2,20,f5
  237.             SELECT 4,2,20,sf10
  238.             SELECT 5,2,20,closeproc
  239.             SELECT 6,2,20,f10
  240.             SELECT 7,2,20,saveselproc
  241.             SELECT 8,2,20,savecopyproc
  242.             SELECT 9,2,20,f5
  243.             SELECT 10,2,20,printoptproc
  244.             SELECT 11,2,20,sf7
  245.             SELECT 12,2,20,wpdefproc
  246.             SELECT 13,2,20,cf1
  247.             SELECT 14,2,20,quitproc
  248.             PEND
  249.                                 ;IBM equivalent selections
  250.  
  251. newproc:        TYPE 0,65, "NN"        ;exit,no,no
  252.  
  253. closeproc:    TYPE 0,65, "Y"            ;exit,yes...
  254.  
  255. saveselproc:    MATCH 25,1,,"Block",f10,ctovr7
  256. ctovr7:    MATCH 25,11,,"Block",f10,blockmsg
  257.                 ;save (block)
  258.  
  259. savecopyproc:    MATCH 25,1,,"Block",noblockmsg,ctovr8
  260. ctovr8:    MATCH 25,11,,"Block",noblockmsg,cf5
  261.                 ;text in/out(save as other...)
  262.  
  263. printoptproc:    POPUP 12,16,INVERSE
  264.  
  265.             TEXT "┌[Print Options]─┐"
  266.             TEXT "│Page Setup...       │█"
  267.             TEXT "│Print Preview...    │█"
  268.             TEXT "│Print Selection...  │█"
  269.             TEXT "│Postscript...     NA│█"
  270.             TEXT "├─<WP 5.0>──────────┤█"
  271.             TEXT "│Select Printer...   │█"
  272.             TEXT "│Printer Control...  │█"
  273.             TEXT "│Printer Forms...    │█"
  274.             TEXT "│Binding Width...    │█"
  275.             TEXT "│Text Quality...     │█"
  276.             TEXT "└────────────────────┘█"
  277.             TEXT "███████████████████████"
  278.  
  279.             SELECT 1,2,4,filemenu
  280.             SELECT 2,2,20,pagesetupproc
  281.             SELECT 3,2,20,printprevproc
  282.             SELECT 4,2,20,sf7
  283.             SELECT 5,2,20,notpossmsg
  284.             SELECT 7,2,20,selptrproc
  285.             SELECT 8,2,20,ptrctlproc
  286.             SELECT 9,2,20,ptrformproc
  287.             SELECT 10,2,20,ptrbwproc
  288.             SELECT 11,2,20,ptrtqproc
  289.             PEND
  290.  
  291. pagesetupproc:    MATCH 25,1,,"Block",noblockmsg,ctovr11a
  292. ctovr11a:    MATCH 25,11,,"Block",noblockmsg,pagesetupcont
  293. pagesetupcont:    TYPE 0,91, "P"            ;format,page
  294.  
  295. printprevproc:        MATCH 25,1,,"Block",noblockmsg,ctovr11
  296. ctovr11:    MATCH 25,11,,"Block",noblockmsg,printprevcont
  297. printprevcont:    TYPE 0,90, "V"            ;print,view
  298.  
  299. selptrproc:        MATCH 25,1,,"Block",noblockmsg,ctovr12
  300. ctovr12:    MATCH 25,11,,"Block",noblockmsg,selptrcont
  301. selptrcont:    TYPE 0,90, "S"            ;print,select printer
  302.  
  303. ptrctlproc:        MATCH 25,1,,"Block",noblockmsg,ctovr13
  304. ctovr13:    MATCH 25,11,,"Block",noblockmsg,ptrctlcont
  305. ptrctlcont:    TYPE 0,90, "C"            ;print,printer control
  306.  
  307. ptrformproc:        MATCH 25,1,,"Block",noblockmsg,ctovr14
  308. ctovr14:    MATCH 25,11,,"Block",noblockmsg,ptrformcont
  309. ptrformcont:    TYPE 0,90, "SEF"        ;print,select printer,edit,forms
  310.  
  311. ptrbwproc:        MATCH 25,1,,"Block",noblockmsg,ctovr15
  312. ctovr15:    MATCH 25,11,,"Block",noblockmsg,ptrbwcont
  313. ptrbwcont:    TYPE 0,90, "B"            ;print,binding
  314.  
  315. ptrtqproc:        MATCH 25,1,,"Block",noblockmsg,ctovr16
  316. ctovr16:    MATCH 25,11,,"Block",noblockmsg,ptrtqcont
  317. ptrtqcont:    TYPE 0,90, "T"            ;print,text quality
  318.  
  319. wpdefproc:        MATCH 25,1,,"Block",noblockmsg,ctovr17
  320. ctovr17:    MATCH 25,11,,"Block",noblockmsg,wpdefcont
  321. wpdefcont:        POPUP 13,16,INVERSE
  322.  
  323.             TEXT "┌[WP Defaults]───┐"
  324.             TEXT "│Save Settings(Setup)│█"
  325.             TEXT "│Backup Options...   │█"
  326.             TEXT "│Beep Options...     │█"
  327.             TEXT "│Default Folders...  │█"
  328.             TEXT "│Measurement...      │█"
  329.             TEXT "└────────────────────┘█"
  330.             TEXT "███████████████████████"
  331.  
  332.             SELECT 1,2,4,filemenu
  333.             SELECT 2,2,20,sf1
  334.             SELECT 3,2,20,backoptproc
  335.             SELECT 4,2,20,beepoptproc
  336.             SELECT 5,2,20,deffoldproc
  337.             SELECT 6,2,20,measproc
  338.             PEND
  339.  
  340.                 ;setup         
  341. backoptproc:    TYPE 0,84, "B"            ;setup,backup
  342. beepoptproc:    TYPE 0,84, "IB"        ;setup,initial,beep
  343. deffoldproc:    TYPE 0,84, "L"            ;setup,location
  344. measproc:        TYPE 0,84, "U"            ;setup,units
  345.  
  346. quitproc:        TYPE 0,65                ;exit
  347.  
  348. editmenu:        POPUP 2,15,INVERSE
  349.  
  350.             TEXT "┌[Edit]──────────┐"
  351.             TEXT "│Undo              NA│█"
  352.             TEXT "│Cut (and Move Block)│█"
  353.             TEXT "│Copy         (Block)│█"
  354.             TEXT "│Paste(Last Blk Move)│█"
  355.             TEXT "│Append   (Block to)│█"
  356.             TEXT "│Undelete...         │█"
  357.             TEXT "│Typeover/Insert     │█"
  358.             TEXT "│Case Convert(Block)│█"
  359.             TEXT "│Insert Literal...   │█"
  360.             TEXT "│Select      (Block)│█"
  361.             TEXT "│Show/Hide Codes     │█"
  362.             TEXT "├─<WP 5.0>──────────┤█"
  363.             TEXT "│Delete             │█"
  364.             TEXT "│Move/Copy Item     │█"
  365.             TEXT "│Comment...          │█"
  366.             TEXT "└────────────────────┘█"
  367.             TEXT "███████████████████████"
  368.  
  369.             SELECT 1,2,4,macmenu
  370.             SELECT 2,2,20,notpossmsg
  371.             SELECT 3,2,20,cutproc
  372.             SELECT 4,2,20,copyproc
  373.             SELECT 5,2,20,pasteproc
  374.             SELECT 6,2,20,appeproc
  375.             SELECT 7,2,20,undelproc
  376.             SELECT 8,2,20,toverproc
  377.             SELECT 9,2,20,caseconvproc
  378.             SELECT 10,2,20,composehlp
  379.             SELECT 11,2,20,selectproc
  380.             SELECT 12,2,20,af3
  381.             SELECT 14,2,20,deleteproc
  382.             SELECT 15,2,20,movecopyproc
  383.             SELECT 16,2,20,cf5
  384.             PEND
  385.  
  386. cutproc:        MATCH 25,1,,"Block",cutcont,ctovr20
  387. ctovr20:    MATCH 25,11,,"Block",cutcont,blockmsg
  388. cutcont:        TYPE 0,97,"BM"            ;move,block,move
  389.  
  390. copyproc:        MATCH 25,1,,"Block",copycont,ctovr21
  391. ctovr21:    MATCH 25,11,,"Block",copycont,blockmsg
  392. copycont:        TYPE 0,97,"BC"            ;move,block,copy
  393.  
  394. pasteproc:    MATCH 25,1,,"Block",noblockmsg,ctovr22
  395. ctovr22:    MATCH 25,11,,"Block",noblockmsg,pastecont
  396. pastecont:    TYPE 0,97, "R"        ;move,retrieve
  397.  
  398. appeproc:        MATCH 25,1,,"Block",appecont,ctovr23
  399. ctovr23:    MATCH 25,11,,"Block",appecont,blockmsg
  400. appecont:        POPUP 7,22,INVERSE
  401.  
  402.             TEXT "┌[Append]────────┐"
  403.             TEXT "│To Clipboard      NA│█"
  404.             TEXT "│To File...          │█"
  405.             TEXT "└────────────────────┘█"
  406.             TEXT "███████████████████████"
  407.  
  408.             SELECT 1,2,4,editmenu
  409.             SELECT 2,2,20,notpossmsg
  410.             SELECT 3,2,20,afileproc
  411.             PEND
  412.  
  413. afileproc:    TYPE 0,97, "BA"        ;move,block,append...
  414.  
  415. undelproc:    MATCH 25,1,,"Block",noblockmsg,ctovr24
  416. ctovr24:    MATCH 25,11,,"Block",noblockmsg,f1
  417.                 ;cancel...
  418.  
  419. toverproc:    TYPE 0,82                ;insert toggle
  420.  
  421. caseconvproc:    MATCH 25,1,,"Block",caseconvcont,ctovr25
  422. ctovr25:    MATCH 25,11,,"Block",caseconvcont,blockmsg
  423. caseconvcont:    POPUP 10,22,INVERSE
  424.  
  425.             TEXT "┌[Case Convert]──┐"
  426.             TEXT "│To UPPER            │█"
  427.             TEXT "│To lower            │█"
  428.             TEXT "└────────────────────┘█"
  429.             TEXT "███████████████████████"
  430.  
  431.             SELECT 1,2,4,editmenu
  432.             SELECT 2,2,20,upperproc
  433.             SELECT 3,2,20,lowerproc
  434.             PEND
  435.  
  436. upperproc:    TYPE 0,86, "U"            ;switch,upper
  437. lowerproc:    TYPE 0,86, "L"            ;switch,lower
  438.  
  439. selectproc:    MATCH 25,1,,"Block",noblockmsg,ctovr27
  440. ctovr27:    MATCH 25,11,,"Block",noblockmsg,selectcont
  441. selectcont:    POPUP 12,22,INVERSE
  442.  
  443.             TEXT "┌[Select]────────┐"
  444.             TEXT "│Select On/Off     NA│█"
  445.             TEXT "│Sentence            │█"
  446.             TEXT "│Paragraph           │█"
  447.             TEXT "│Page                │█"
  448.             TEXT "│Column              │█"
  449.             TEXT "│All                 │█"
  450.             TEXT "└────────────────────┘█"
  451.             TEXT "███████████████████████"
  452.  
  453.             SELECT 1,2,4,editmenu
  454.             SELECT 2,2,20,notpossmsg
  455.             SELECT 3,2,20,sentproc
  456.             SELECT 4,2,20,paraproc
  457.             SELECT 5,2,20,pageproc
  458.             SELECT 6,2,20,bcolproc
  459.             SELECT 7,2,20,allproc
  460.             PEND
  461.  
  462. sentproc:        EXECUTE getsent,f1
  463. getsent:        TYPE 0,97, "SA"    ;move,sentence,append,cancel
  464.  
  465. paraproc:        EXECUTE getpara,f1
  466. getpara:        TYPE 0,97, "PA"    ;move,paragraph,append,cancel
  467.  
  468. pageproc:        EXECUTE getpage,f1
  469. getpage:        TYPE 0,97, "aA"    ;move,page,append,cancel
  470.  
  471. bcolproc:        TYPE 0,113, "CLMN",ENTER    ;macro to select column
  472. allproc:        TYPE 0,113, "ALL",ENTER    ;macro to select all
  473.  
  474. movecopyproc:    MATCH 25,1,,"Block",noblockmsg,ctovr28
  475. ctovr28:    MATCH 25,11,,"Block",noblockmsg,movecopycont
  476. movecopycont:    POPUP 15,22,INVERSE
  477.  
  478.             TEXT "┌[Move/Copy Item]┐"
  479.             TEXT "│Sentence            │█"
  480.             TEXT "│Paragraph           │█"
  481.             TEXT "│Page                │█"
  482.             TEXT "│Retrieve            │█"
  483.             TEXT "└────────────────────┘█"
  484.             TEXT "███████████████████████"
  485.  
  486.             SELECT 1,2,4,editmenu
  487.             SELECT 2,2,20,mcsentproc
  488.             SELECT 3,2,20,mcparaproc
  489.             SELECT 4,2,20,mcpageproc
  490.             SELECT 5,2,20,mcretrproc
  491.             PEND
  492.  
  493. mcsentproc:    TYPE 0,97, "S"        ;move,sentence
  494. mcparaproc:    TYPE 0,97, "P"        ;move,paragraph
  495. mcpageproc:    TYPE 0,97, "a"        ;move,page
  496. mcretrproc:    TYPE 0,97, "R"        ;move,retrieve
  497.  
  498. deleteproc:    POPUP 14,22,INVERSE
  499.  
  500.             TEXT "┌[Delete]────────┐"
  501.             TEXT "│Block               │█"
  502.             TEXT "│Word                │█"
  503.             TEXT "│To End of Line      │█"
  504.             TEXT "│To End of Page      │█"
  505.             TEXT "│To Word Beginning   │█"
  506.             TEXT "│To Word End         │█"
  507.             TEXT "└────────────────────┘█"
  508.             TEXT "███████████████████████"
  509.  
  510.             SELECT 1,2,4,editmenu
  511.             SELECT 2,2,20,delblkproc
  512.             SELECT 3,2,20,delwordproc
  513.             SELECT 4,2,20,deleolproc
  514.             SELECT 5,2,20,deleopproc
  515.             SELECT 6,2,20,delwbproc
  516.             SELECT 7,2,20,delweproc
  517.             PEND
  518.  
  519. delblkproc:    MATCH 25,1,,"Block",delblkcont,ctovr29
  520. ctovr29:    MATCH 25,11,,"Block",delblkcont,blockmsg
  521. delblkcont:        TYPE 0,97,"BD"            ;move,block,delete
  522.  
  523. delwordproc:    TYPE 0,113, "DELWORD",ENTER    ;^backspace macro
  524.  
  525. deleolproc:    TYPE 0,117            ;^end
  526.  
  527. deleopproc:    TYPE 0,118            ;^pgdn
  528.  
  529. delwbproc:    MATCH 25,1,,"Block",noblockmsg,ctovr33
  530. ctovr33:    MATCH 25,11,,"Block",noblockmsg,delwbcont
  531. delwbcont:    EXECUTE hm,backspc        ;home,backspace
  532. hm:            TYPE 0,71                ;home
  533.  
  534. delweproc:    MATCH 25,1,,"Block",noblockmsg,ctovr34
  535. ctovr34:    MATCH 25,11,,"Block",noblockmsg,delwecont
  536. delwecont:    EXECUTE hm,del            ;home,delete
  537. del:            TYPE 0,83                ;delete
  538.  
  539. searchmenu:    POPUP 2,21, INVERSE
  540.  
  541.             TEXT "┌[Search]────────┐"
  542.             TEXT "│Forward...          │█"
  543.             TEXT "│Backward...         │█"
  544.             TEXT "│Replace...          │█"
  545.             TEXT "│Goto...             │█"
  546.             TEXT "└────────────────────┘█"
  547.             TEXT "███████████████████████"
  548.  
  549.             SELECT 1,2,4,macmenu
  550.             SELECT 2,2,20,f2
  551.             SELECT 3,2,20,sf2
  552.             SELECT 4,2,20,af2
  553.             SELECT 5,2,20,gotoproc
  554.             PEND
  555.  
  556. gotoproc:        TYPE 0,119            ;goto
  557.  
  558. formatmenu:    POPUP 2,29,INVERSE
  559.  
  560.             TEXT "┌[Format]────────┐"
  561.             TEXT "│Show Ruler          │█"
  562.             TEXT "│Copy Ruler        NA│█"
  563.             TEXT "│Columns            │█"
  564.             TEXT "│Page               │█"
  565.             TEXT "│Paragraph          │█"
  566.             TEXT "│Line               │█"
  567.             TEXT "│Characters         │█"    
  568.             TEXT "├─<WP 5.0>──────────┤█"
  569.             TEXT "│Document...         │█"
  570.             TEXT "│Other...            │█"
  571.             TEXT "│Tab Align           │█"
  572.             TEXT "└────────────────────┘█"
  573.             TEXT "███████████████████████"
  574.  
  575.             SELECT 1,2,4,macmenu
  576.             SELECT 2,2,20,rulerproc
  577.             SELECT 3,2,20,notpossmsg
  578.             SELECT 4,2,20,colfproc
  579.             SELECT 5,2,20,pagefproc
  580.             SELECT 6,2,20,parafproc
  581.             SELECT 7,2,20,linefproc
  582.             SELECT 8,2,20,styleproc
  583.             SELECT 10,2,20,docfproc
  584.             SELECT 11,2,20,otherfproc
  585.             SELECT 12,2,20,cf6
  586.             PEND
  587.  
  588. rulerproc:    MATCH 25,1,,"Block",noblockmsg,ctovr35
  589. ctovr35:    MATCH 25,11,,"Block",noblockmsg,rulercont
  590. rulercont:     TYPE 0,91,"1T"            ;format,line,tab set
  591.  
  592. colfproc:        POPUP 5,36,INVERSE
  593.  
  594.             TEXT "┌[Columns]───────┐"
  595.             TEXT "│Columns On/Off      │█"
  596.             TEXT "│Column Options...   │█"
  597.             TEXT "└────────────────────┘█"
  598.             TEXT "███████████████████████"
  599.  
  600.             SELECT 1,2,4,formatmenu
  601.             SELECT 2,2,20,colonproc
  602.             SELECT 3,2,20,af7
  603.             PEND
  604.  
  605. colonproc:    TYPE 0,110, "C"        ;math/columns on/off toggle
  606.  
  607. pagefproc:    POPUP 6,36,INVERSE
  608.  
  609.             TEXT "┌[Page]──────────┐"
  610.             TEXT "│Page Layout...      │█"
  611.             TEXT "│Page Numbers...     │█"
  612.             TEXT "│Suppress Format...  │█"
  613.             TEXT "│Headers-Footers...  │█"
  614.             TEXT "│Conditional EOP...  │█"
  615.             TEXT "│Block Protect       │█"
  616.             TEXT "│Widow-Orphan        │█"
  617.             TEXT "└────────────────────┘█"
  618.             TEXT "███████████████████████"
  619.  
  620.             SELECT 1,2,4,formatmenu
  621.             SELECT 2,2,20,fppglayproc
  622.             SELECT 3,2,20,fppglayproc
  623.             SELECT 4,2,20,fpsfproc
  624.             SELECT 5,2,20,fppglayproc
  625.             SELECT 6,2,20,fpceopproc
  626.             SELECT 7,2,20,fpbpproc
  627.             SELECT 8,2,20,fpwoproc
  628.             PEND
  629.  
  630. fppglayproc:    MATCH 25,1,,"Block",noblockmsg,ctovr37
  631. ctovr37:    MATCH 25,11,,"Block",noblockmsg,fppglaycont
  632. fppglaycont:    TYPE 0,91, "P"        ;format,page
  633.  
  634. fpsfproc:        MATCH 25,1,,"Block",noblockmsg,ctovr38
  635. ctovr38:    MATCH 25,11,,"Block",noblockmsg,fpsfcont
  636. fpsfcont:        TYPE 0,91, "Pu"    ;format,page,suppress this page only
  637.  
  638. fpceopproc:    MATCH 25,1,,"Block",noblockmsg,ctovr39
  639. ctovr39:    MATCH 25,11,,"Block",noblockmsg,fpceopcont
  640. fpceopcont:    TYPE 0,91, "OC"    ;format,other,ceop
  641.  
  642. fpbpproc:        MATCH 25,1,,"Block",sf8,ctovr40
  643. ctovr40:    MATCH 25,11,,"Block",sf8,blockmsg
  644.            ;block on,format,block protect
  645.  
  646. fpwoproc:        MATCH 25,1,,"Block",noblockmsg,ctovr41
  647. ctovr41:    MATCH 25,11,,"Block",noblockmsg,fpwocont
  648. fpwocont:        TYPE 0,91, "LW"    ;format,line,widow/orphan
  649.  
  650. parafproc:    MATCH 25,1,,"Block",noblockmsg,ctovr42
  651. ctovr42:    MATCH 25,11,,"Block",noblockmsg,parafcont
  652. parafcont:    POPUP 7,36,INVERSE
  653.  
  654.             TEXT "┌[Paragraph]─────┐"
  655.             TEXT "│Outline             │█"
  656.             TEXT "│Paragraph Numbers...│█"
  657.             TEXT "│Paragraph Num Def...│█"
  658.             TEXT "│Indent              │█"
  659.             TEXT "│Left-Right Indent   │█"
  660.             TEXT "└────────────────────┘█"
  661.             TEXT "███████████████████████"
  662.  
  663.             SELECT 1,2,4,formatmenu
  664.             SELECT 2,2,20,froutlnproc
  665.             SELECT 3,2,20,frrnproc
  666.             SELECT 4,2,20,frrndproc
  667.             SELECT 5,2,20,f4
  668.             SELECT 6,2,20,sf4
  669.             PEND
  670.  
  671. froutlnproc:    TYPE 0,88, "O"        ;date/outline,outline
  672. frrnproc:        TYPE 0,88, "P"        ;date/outline,paragraph numbers
  673. frrndproc:    TYPE 0,88, "D"        ;date/outline,para num def
  674.  
  675. linefproc:    POPUP 8,36,INVERSE
  676.  
  677.             TEXT "┌[Line]──────────┐"
  678.             TEXT "│Center              │█"
  679.             TEXT "│Flush Right         │█"
  680.             TEXT "│Tabs...             │█"
  681.             TEXT "│Hyphenation...      │█"
  682.             TEXT "│Spacing...          │█"
  683.             TEXT "│Kerning...          │█"
  684.             TEXT "├─<WP 5.0>──────────┤█"
  685.             TEXT "│L/R Margin...       │█"
  686.             TEXT "│<Margin Release     │█"
  687.             TEXT "│Justification...    │█"
  688.             TEXT "└────────────────────┘█"
  689.             TEXT "███████████████████████"
  690.  
  691.             SELECT 1,2,4,formatmenu
  692.             SELECT 2,2,20,sf6
  693.             SELECT 3,2,20,af6
  694.             SELECT 4,2,20,fltabproc
  695.             SELECT 5,2,20,flhyproc
  696.             SELECT 6,2,20,flspproc
  697.             SELECT 7,2,20,flkrnproc
  698.             SELECT 9,2,20,fllrmgnproc
  699.             SELECT 10,2,20,flmgnrelproc
  700.             SELECT 11,2,20,fljustproc
  701.             PEND
  702.  
  703. flcntrproc:    TYPE 0,89            ;center
  704. flfrproc:        TYPE 0,109        ;flush right
  705.  
  706. fltabproc:    MATCH 25,1,,"Block",noblockmsg,ctovr43
  707. ctovr43:    MATCH 25,11,,"Block",noblockmsg,fltabcont
  708. fltabcont:    TYPE 0,91, "LT"    ;format,line,tab set
  709.  
  710. flhyproc:        MATCH 25,1,,"Block",noblockmsg,ctovr44
  711. ctovr44:    MATCH 25,11,,"Block",noblockmsg,flhycont
  712. flhycont:        TYPE 0,91, "L"        ;format,line
  713.  
  714. fljustproc:        MATCH 25,1,,"Block",noblockmsg,ctovr44a
  715. ctovr44a:    MATCH 25,11,,"Block",noblockmsg,fljustcont
  716. fljustcont:        TYPE 0,91, "LJ"        ;format,line,justification
  717.  
  718. flspproc:        MATCH 25,1,,"Block",noblockmsg,ctovr45
  719. ctovr45:    MATCH 25,11,,"Block",noblockmsg,flspcont
  720. flspcont:        TYPE 0,91, "LS"    ;format,line spacing
  721.  
  722. flkrnproc:    MATCH 25,1,,"Block",noblockmsg,ctovr46
  723. ctovr46:    MATCH 25,11,,"Block",noblockmsg,flkrncont
  724. flkrncont:    TYPE 0,91, "OPK"    ;format,other,printer functions,kerning
  725.  
  726. fllrmgnproc:    MATCH 25,1,,"Block",noblockmsg,ctovr47
  727. ctovr47:    MATCH 25,11,,"Block",noblockmsg,fllrmgncont
  728. fllrmgncont:    TYPE 0,91, "LM"    ;format,line,margins
  729.  
  730. flmgnrelproc:    TYPE 0,113, "MGNREL",ENTER    ;shift tab (<mar rel) macro
  731.  
  732. docfproc:    MATCH 25,1,,"Block",noblockmsg,ctovr49
  733. ctovr49:    MATCH 25,11,,"Block",noblockmsg,docfcont
  734. docfcont:     TYPE 0,91,"D"            ;format,document
  735.  
  736. otherfproc:    MATCH 25,1,,"Block",noblockmsg,ctovr50
  737. ctovr50:    MATCH 25,11,,"Block",noblockmsg,otherfcont
  738. otherfcont:     TYPE 0,91,"O"            ;format,other
  739.  
  740. fontmenu:        POPUP 2,37,INVERSE
  741.  
  742.             TEXT "┌[Font]──────────┐"
  743.             TEXT "│Style              │█"
  744.             TEXT "│Font...             │█"
  745.             TEXT "└────────────────────┘█"
  746.             TEXT "███████████████████████"
  747.  
  748.             SELECT 1,2,4,macmenu
  749.             SELECT 2,2,20,styleproc
  750.             SELECT 3,2,20,cf8
  751.             PEND
  752.  
  753. styleproc:    POPUP 3,44,INVERSE
  754.  
  755.             TEXT "┌[Style]─────────┐"
  756.             TEXT "│Sizes...           │█"
  757.             TEXT "│Plain Text          │█"
  758.             TEXT "│Bold                │█"
  759.             TEXT "│Underline           │█"
  760.             TEXT "│Italics             │█"
  761.             TEXT "│Outline             │█"
  762.             TEXT "│Shadow              │█"
  763.             TEXT "│Superscript         │█"
  764.             TEXT "│Subscript           │█"
  765.             TEXT "│Overstrike          │█"
  766.             TEXT "│Strikeout           │█"
  767.             TEXT "│Redline             │█"
  768.             TEXT "├─<WP 5.0>──────────┤█"
  769.             TEXT "│Double Underline    │█"
  770.             TEXT "│Styles...           │█"
  771.             TEXT "└────────────────────┘█"
  772.             TEXT "███████████████████████"
  773.  
  774.             SELECT 1,2,4,fontmenu
  775.             SELECT 2,2,20,sizemenu
  776.             SELECT 3,2,20,ptproc 
  777.             SELECT 4,2,20,boproc
  778.             SELECT 5,2,20,unproc
  779.             SELECT 6,2,20,itproc
  780.             SELECT 7,2,20,otproc
  781.             SELECT 8,2,20,shproc
  782.             SELECT 9,2,20,spproc
  783.             SELECT 10,2,20,sbproc
  784.             SELECT 11,2,20,osproc
  785.             SELECT 12,2,20,stproc
  786.             SELECT 13,2,20,rdproc
  787.             SELECT 15,2,20,duproc
  788.             SELECT 16,2,20,af8
  789.             PEND
  790.  
  791. sizemenu:        POPUP 4,51,INVERSE
  792.  
  793.             TEXT "┌[Sizes]─────────┐"
  794.             TEXT "│Fine                │█"
  795.             TEXT "│Small               │█"
  796.             TEXT "│Large               │█"
  797.             TEXT "│Very Large          │█"
  798.             TEXT "│Extra Large         │█"
  799.             TEXT "└────────────────────┘█"
  800.             TEXT "███████████████████████"
  801.  
  802.             SELECT 1,2,4,styleproc
  803.             SELECT 2,2,20,fineproc 
  804.             SELECT 3,2,20,smallproc
  805.             SELECT 4,2,20,largeproc
  806.             SELECT 5,2,20,vlargeproc
  807.             SELECT 6,2,20,elargeproc
  808.             PEND
  809.  
  810. fineproc:        TYPE 0,101, "SF"    ;font,size,fine
  811. smallproc:    TYPE 0,101, "SS"    ;font,size,small
  812. largeproc:    TYPE 0,101, "SL"    ;font,size,large
  813. vlargeproc:    TYPE 0,101, "SV"    ;font,size,vry large
  814. elargeproc:    TYPE 0,101, "SE"    ;font,size,extra large
  815.  
  816. ptproc:        MATCH 25,1,,"Block",normalfontmsg,ctovr52
  817. ctovr52:    MATCH 25,11,,"Block",normalfontmsg,ptcont
  818. ptcont:        TYPE 0,101, "N"    ;font,normal
  819.  
  820. boproc:        TYPE 0,101, "AB"    ;bold
  821. unproc:        TYPE 0,101, "AU"    ;underline
  822. itproc:        TYPE 0,101, "AI"    ;italic
  823. otproc:        TYPE 0,101, "AO"    ;outline
  824. shproc:        TYPE 0,101, "Aa"    ;shadow
  825. spproc:        TYPE 0,101, "Sp"    ;superscript
  826. sbproc:        TYPE 0,101, "Sb"    ;subscript
  827.  
  828. osproc:    MATCH 25,1,,"Block",noblockmsg,ctovr53
  829. ctovr53:    MATCH 25,11,,"Block",noblockmsg,oscont
  830. oscont:        TYPE 0,91, "OO"    ;format,other,overstrike
  831.  
  832. stproc:        TYPE 0,101, "AS"    ;strikeout
  833. rdproc:        TYPE 0,101, "AR"    ;redline
  834. duproc:        TYPE 0,101, "AD"    ;double underline
  835.  
  836. specialmenu:    POPUP 2,43,INVERSE
  837.  
  838.             TEXT "┌[Special]───────┐"
  839.             TEXT "│Spell              │█"
  840.             TEXT "│Thesaurus...        │█"
  841.             TEXT "│Merge...            │█"
  842.             TEXT "│Merge Codes        │█"
  843.             TEXT "│Macro              │█"
  844.             TEXT "│Footnotes          │█"
  845.             TEXT "│Date                │█"
  846.             TEXT "│Mark Text          │█"
  847.             TEXT "│Define Lists       │█"
  848.             TEXT "│Screen             │█"
  849.             TEXT "├─<WP 5.0>──────────┤█"
  850.             TEXT "│Math...             │█"
  851.             TEXT "│Sort...             │█"
  852.             TEXT "│Graphics...         │█"
  853.             TEXT "│Line Draw...        │█"
  854.             TEXT "│Lock Document...    │█"
  855.             TEXT "│Convert Document... │█"
  856.             TEXT "└────────────────────┘█"
  857.             TEXT "███████████████████████"
  858.  
  859.             SELECT 1,2,4,macmenu
  860.             SELECT 2,2,20,spellproc
  861.             SELECT 3,2,20,af1
  862.             SELECT 4,2,20,mergeproc
  863.             SELECT 5,2,20,mercodeproc
  864.             SELECT 6,2,20,macroproc
  865.             SELECT 7,2,20,footproc
  866.             SELECT 8,2,20,sf5
  867.             SELECT 9,2,20,mrktxtproc
  868.             SELECT 10,2,20,deflstproc
  869.             SELECT 11,2,20,scrproc
  870.             SELECT 13,2,20,af7 
  871.             SELECT 14,2,20,cf9
  872.             SELECT 15,2,20,af9
  873.             SELECT 16,2,20,linedrawproc
  874.             SELECT 17,2,20,lockdocproc
  875.             SELECT 18,2,20,cf1
  876.             PEND
  877.  
  878. spellproc:    POPUP 3,50,INVERSE
  879.  
  880.             TEXT "┌[Spell]─────────┐"
  881.             TEXT "│Speller...          │█"
  882.             TEXT "│Check Selection(Blk)│█"
  883.             TEXT "│Check Page...       │█"
  884.             TEXT "│Check Document...   │█"
  885.             TEXT "│Change Dictionary...│█"
  886.             TEXT "│Count...            │█"
  887.             TEXT "│Lookup...           │█"
  888.             TEXT "├─<WP 5.0>──────────┤█"
  889.             TEXT "│Check Word...       │█"
  890.             TEXT "└────────────────────┘█"
  891.             TEXT "███████████████████████"
  892.  
  893.             SELECT 1,2,4,specialmenu
  894.             SELECT 2,2,20,cf2 
  895.             SELECT 3,2,20,chkselproc
  896.             SELECT 4,2,20,chkpageproc
  897.             SELECT 5,2,20,chkdocproc
  898.             SELECT 6,2,20,changedictproc
  899.             SELECT 7,2,20,countproc
  900.             SELECT 8,2,20,lookupproc
  901.             SELECT 10,2,20,chkwordproc
  902.             PEND
  903.  
  904. chkselproc:    MATCH 25,1,,"Block",cf2,ctovr58a
  905. ctovr58a:    MATCH 25,11,,"Block",cf2,blockmsg
  906.             ;spell
  907.  
  908. chkpageproc:        TYPE 0,95, "P"        ;spell,page
  909. chkdocproc:        TYPE 0,95, "D"        ;spell,document
  910. changedictproc:    TYPE 0,95, "N"        ;spell,new sup. dict.
  911. countproc:        TYPE 0,95, "C"        ;spell,count
  912. lookupproc:        TYPE 0,95, "L"        ;spell,lookup
  913. chkwordproc:        TYPE 0,95, "W"        ;spell,word
  914.  
  915. mergeproc:    MATCH 25,1,,"Block",noblockmsg,ctovr55
  916. ctovr55:    MATCH 25,11,,"Block",noblockmsg,mergecont
  917. mergecont:    TYPE 0,102, "M"        ;merge,merge
  918.  
  919. mercodeproc:    POPUP 6,50,INVERSE
  920.  
  921.             TEXT "┌[Merge Codes]───┐"
  922.             TEXT "│From Keyboard     ^C│█"
  923.             TEXT "│Date              ^D│█"
  924.             TEXT "│End of Record     ^E│█"
  925.             TEXT "│Retrieve Field   ^Fn│█"
  926.             TEXT "│Invoke Macro      ^G│█"
  927.             TEXT "│Next Record       ^N│█"
  928.             TEXT "│New Primary       ^P│█"
  929.             TEXT "│Stop Merge        ^Q│█"
  930.             TEXT "│End of Field      ^R│█"
  931.             TEXT "│New Secondary     ^S│█"
  932.             TEXT "│To Printer        ^T│█"
  933.             TEXT "│Update Screen     ^U│█"
  934.             TEXT "│Transfer Codes    ^V│█"
  935.             TEXT "├─<WP 5.0>──────────┤█"
  936.             TEXT "│Status Line Msg   ^O│█"
  937.             TEXT "└────────────────────┘█"
  938.             TEXT "███████████████████████"
  939.  
  940.             SELECT 1,2,4,specialmenu
  941.             SELECT 2,2,20,frmkbdproc
  942.             SELECT 3,2,20,dtproc 
  943.             SELECT 4,2,20,eorproc
  944.             SELECT 5,2,20,rfproc
  945.             SELECT 6,2,20,improc
  946.             SELECT 7,2,20,nrproc
  947.             SELECT 8,2,20,npproc
  948.             SELECT 9,2,20,smproc
  949.             SELECT 10,2,20,eofproc
  950.             SELECT 11,2,20,nsproc
  951.             SELECT 12,2,20,tpproc
  952.             SELECT 13,2,20,usproc
  953.             SELECT 14,2,20,tcproc
  954.             SELECT 16,2,20,stlnmproc
  955.             PEND
  956.  
  957. frmkbdproc:    TYPE 0,92, "C"    ;keyboard
  958. dtproc:        TYPE 0,92, "D"    ;date
  959. eorproc:        TYPE 0,92, "E"    ;end of record
  960. rfproc:        TYPE 0,92, "F"    ;merge from field <n>
  961. improc:        TYPE 0,92, "G"    ;invoke macro <macroname>
  962. nrproc:        TYPE 0,92, "N"    ;next record
  963. npproc:        TYPE 0,92, "P"    ;new primary file
  964. smproc:        TYPE 0,92, "Q"    ;stop merge
  965. eofproc:        TYPE 0,92, "R"    ;end of field
  966. nsproc:        TYPE 0,92, "S"    ;new secondary file
  967. tpproc:        TYPE 0,92, "T"    ;to printer
  968. usproc:        TYPE 0,92, "U"    ;update screen
  969. tcproc:        TYPE 0,92, "V"    ;transfer codes
  970. stlnmproc:    TYPE 0,92, "O"    ;status line message
  971.  
  972. macroproc:    POPUP 7,50,INVERSE    
  973.  
  974.             TEXT "┌[Macro]─────────┐"
  975.             TEXT "│Define Macro...     │█"
  976.             TEXT "│Execute macro...    │█"
  977.             TEXT "│Chain Macro...      │█"
  978.             TEXT "│Macro Delay...      │█"
  979.             TEXT "│Macro Input...      │█"
  980.             TEXT "│Pause Macro...      │█"
  981.             TEXT "└────────────────────┘█"
  982.             TEXT "███████████████████████"
  983.  
  984.             SELECT 1,2,4,specialmenu
  985.             SELECT 2,2,20,cf10
  986.             SELECT 3,2,20,af10
  987.             SELECT 4,2,20,cf10
  988.             SELECT 5,2,20,macinpproc
  989.             SELECT 6,2,20,macinpproc
  990.             SELECT 7,2,20,macinpproc
  991.             PEND
  992.  
  993. macinpproc:    MATCH 25,1,,"Selection: a",macinpcont,checkcapa
  994. checkcapa:    MATCH 25,1,,"Selection: A",macinpcont,macroeditmsg
  995. macinpcont:    TYPE 0,132     ;macro commands(^PgUp)
  996.  
  997. footproc:        POPUP 8,50,INVERSE
  998.  
  999.             TEXT "┌[Footnotes]─────┐"
  1000.             TEXT "│Create...           │█"
  1001.             TEXT "│Edit...             │█"
  1002.             TEXT "│New Number...       │█"
  1003.             TEXT "│Options...          │█"
  1004.             TEXT "│Create Endnote...   │█"
  1005.             TEXT "│Edit Endnote...     │█"
  1006.             TEXT "└────────────────────┘█"
  1007.             TEXT "███████████████████████"
  1008.  
  1009.             SELECT 1,2,4,specialmenu
  1010.             SELECT 2,2,20,crftntproc
  1011.             SELECT 3,2,20,edtftntproc
  1012.             SELECT 4,2,20,nfnproc
  1013.             SELECT 5,2,20,foptproc
  1014.             SELECT 6,2,20,crendntproc
  1015.             SELECT 7,2,20,edtendntproc
  1016.             PEND
  1017.  
  1018. crftntproc:    TYPE 0,100,"FC"    ;footnote,create
  1019. edtftntproc:    TYPE 0,100,"FE"    ;footnote,edit
  1020. nfnproc:        TYPE 0,100,"FN"    ;footnote,new number
  1021. foptproc:        TYPE 0,100,"FO"    ;footnote,options
  1022. crendntproc:    TYPE 0,100,"EC"    ;endnote,create
  1023. edtendntproc:    TYPE 0,100,"EE"    ;endnote,edit
  1024.  
  1025. mrktxtproc:    POPUP 10,50,INVERSE
  1026.  
  1027.             TEXT "┌[Mark Text]─────┐"
  1028.             TEXT "│List...      (Block)│█"
  1029.             TEXT "│Table of Contents...│█"
  1030.             TEXT "│Index...     (Block)│█"
  1031.             TEXT "│Remove...           │█"
  1032.             TEXT "│Generate...         │█"
  1033.             TEXT "├─<WP 5.0>──────────┤█"
  1034.             TEXT "│Master/Sub Document │█"
  1035.             TEXT "│Auto Reference...   │█"
  1036.             TEXT "│Table of Authorities│█"
  1037.             TEXT "└────────────────────┘█"
  1038.             TEXT "███████████████████████"
  1039.  
  1040.             SELECT 1,2,4,specialmenu
  1041.             SELECT 2,2,20,mtlistproc
  1042.             SELECT 3,2,20,mttocproc
  1043.             SELECT 4,2,20,mtinproc
  1044.             SELECT 5,2,20,mtrmproc
  1045.             SELECT 6,2,20,mtgnproc
  1046.             SELECT 8,2,20,mtmsdproc
  1047.             SELECT 9,2,20,mtarproc
  1048.             SELECT 10,2,20,mttoaproc
  1049.             PEND
  1050.  
  1051. mtlistproc:    MATCH 25,1,,"Block",mtlcont,ctovr58
  1052. ctovr58:    MATCH 25,11,,"Block",mtlcont,blockmsg
  1053. mtlcont:        TYPE 0,108, "L"    ;block mark text,lists
  1054.  
  1055. mttocproc:    MATCH 25,1,,"Block",mttoccont,ctovr59
  1056. ctovr59:    MATCH 25,11,,"Block",mttoccont,blockmsg
  1057. mttoccont:    TYPE 0,108, "C"    ;block mark text,ToC
  1058.  
  1059. mtinproc:        MATCH 25,1,,"Block",mtincont,ctovr60
  1060. ctovr60:    MATCH 25,11,,"Block",mtincont,blockmsg
  1061. mtincont:        TYPE 0,108, "I"    ;block mark text,index
  1062.  
  1063. mtrmproc:        MATCH 25,1,,"Block",noblockmsg,ctovr61
  1064. ctovr61:    MATCH 25,11,,"Block",noblockmsg,mtrmcont
  1065. mtrmcont:        TYPE 0,108, "GR"    ;mark text,generate,remove
  1066.  
  1067. mtgnproc:        MATCH 25,1,,"Block",noblockmsg,ctovr62
  1068. ctovr62:    MATCH 25,11,,"Block",noblockmsg,mtgncont
  1069. mtgncont:        TYPE 0,108, "G"    ;mark text,generate
  1070.  
  1071. mtmsdproc:    MATCH 25,1,,"Block",noblockmsg,ctovr63
  1072. ctovr63:    MATCH 25,11,,"Block",noblockmsg,mtmsdcont
  1073. mtmsdcont:        TYPE 0,108, "S"    ;mark text,subdocument
  1074.  
  1075. mtarproc:        MATCH 25,1,,"Block",noblockmsg,ctovr64
  1076. ctovr64:    MATCH 25,11,,"Block",noblockmsg,mtarcont
  1077. mtarcont:        TYPE 0,108, "R"    ;mark text,auto reference
  1078.  
  1079. mttoaproc:    TYPE 0,108, "A"    ;mark text,table of auth (block on/off)
  1080.  
  1081. deflstproc:    MATCH 25,1,,"Block",noblockmsg,ctovr65
  1082. ctovr65:    MATCH 25,11,,"Block",noblockmsg,deflstcont
  1083. deflstcont:    POPUP 11,50,INVERSE
  1084.  
  1085.             TEXT "┌[Define Lists]──┐"
  1086.             TEXT "│List 1...           │█"
  1087.             TEXT "│List 2...           │█"
  1088.             TEXT "│List 3...           │█"
  1089.             TEXT "│List 4...           │█"
  1090.             TEXT "│List 5...           │█"
  1091.             TEXT "│Table of Contents...│█"
  1092.             TEXT "│Index...            │█"
  1093.             TEXT "└────────────────────┘█"
  1094.             TEXT "███████████████████████"
  1095.  
  1096.             SELECT 1,2,4,specialmenu
  1097.             SELECT 2,2,20,dfl1proc
  1098.             SELECT 3,2,20,dfl2proc
  1099.             SELECT 4,2,20,dfl3proc
  1100.             SELECT 5,2,20,dfl4proc
  1101.             SELECT 6,2,20,dfl5proc
  1102.             SELECT 7,2,20,dftocproc
  1103.             SELECT 8,2,20,dfinproc
  1104.             PEND
  1105.  
  1106. dfl1proc:        TYPE 0,108, "DL1"    ;mark text,define,lists,1
  1107. dfl2proc:        TYPE 0,108, "DL2"    ;mark text,define,lists,2
  1108. dfl3proc:        TYPE 0,108, "DL3"    ;mark text,define,lists,3
  1109. dfl4proc:        TYPE 0,108, "DL4"    ;mark text,define,lists,4
  1110. dfl5proc:        TYPE 0,108, "DL5"    ;mark text,define,lists,5
  1111. dftocproc:    TYPE 0,108, "DC"    ;mark text,define,ToC
  1112. dfinproc:        TYPE 0,108, "DI"    ;mark text,define,index
  1113.  
  1114. scrproc:        POPUP 12,50,INVERSE
  1115.  
  1116.             TEXT "┌[Screen]────────┐"
  1117.             TEXT "│Full/Split Window   │█"
  1118.             TEXT "│Show/Hide PositionNA│█"
  1119.             TEXT "│Display Justif.   NA│█"
  1120.             TEXT "│Colors...           │█"
  1121.             TEXT "└────────────────────┘█"
  1122.             TEXT "███████████████████████"
  1123.  
  1124.             SELECT 1,2,4,specialmenu
  1125.             SELECT 2,2,20,fullwinproc
  1126.             SELECT 3,2,20,notpossmsg
  1127.             SELECT 4,2,20,notpossmsg
  1128.             SELECT 5,2,20,colorsproc
  1129.             PEND
  1130.  
  1131. fullwinproc:        TYPE 0,96, "W"            ;screen,window
  1132.  
  1133. colorsproc:        TYPE 0,84, "DCS"    ;setup,display,colors,screen
  1134.  
  1135. linedrawproc:    TYPE 0,96, "L"        ;screen,line draw
  1136.  
  1137. lockdocproc:    MATCH 25,1,,"Block",noblockmsg,ctovr70
  1138. ctovr70:    MATCH 25,11,,"Block",noblockmsg,lockdoccont
  1139. lockdoccont:    TYPE 0,98, "P"        ;text in/out,password
  1140.  
  1141. windowsmenu:    POPUP 2,52,INVERSE
  1142.  
  1143.             TEXT "┌[Windows]───────┐"
  1144.             TEXT "│Cycle Windows       │█"
  1145.             TEXT "│Show Clipboard    NA│█"
  1146.             TEXT "└────────────────────┘█"
  1147.             TEXT "███████████████████████"
  1148.  
  1149.             SELECT 1,2,4,macmenu
  1150.             SELECT 2,2,20,wincycproc
  1151.             SELECT 3,2,20,notpossmsg
  1152.             PEND
  1153.  
  1154. wincycproc:    MATCH 25,1,,"Block",noblockmsg,ctovr71
  1155. ctovr71:    MATCH 25,11,,"Block",noblockmsg,sf3
  1156.                 ;switch to doc 2
  1157.  
  1158. blockmsg:        POPUP 9,27,INVERSE
  1159.  
  1160.             TEXT "╔══════════════════════╗"
  1161.             TEXT "║  SELECT BLOCK FIRST! ║█"
  1162.             TEXT "║      ┌────────┐      ║█"
  1163.             TEXT "║      │ CANCEL │      ║█"
  1164.             TEXT "║      └────────┘      ║█"
  1165.             TEXT "╚══════════════════════╝█"
  1166.             TEXT "█████████████████████████"
  1167.  
  1168.             SELECT 4,10,6,exitcancel
  1169.             PEND
  1170.  
  1171. exitcancel:    EXECUTE f7,f1
  1172.  
  1173. noblockmsg:    POPUP 9,27,INVERSE
  1174.  
  1175.             TEXT "╔══════════════════════╗"
  1176.             TEXT "║     BLOCK MUST BE    ║█"
  1177.             TEXT "║   OFF BEFORE USING   ║█"
  1178.             TEXT "║     THIS COMMAND     ║█"
  1179.             TEXT "║      ┌────────┐      ║█"
  1180.             TEXT "║      │ CANCEL │      ║█"
  1181.             TEXT "║      └────────┘      ║█"
  1182.             TEXT "╚══════════════════════╝█"
  1183.             TEXT "█████████████████████████"
  1184.  
  1185.             SELECT 6,10,6,exitcancel
  1186.             PEND
  1187.  
  1188. macroeditmsg:    POPUP 9,25,INVERSE
  1189.  
  1190.             TEXT "╔══════════════════════════╗"
  1191.             TEXT "║    YOU MUST BE EDITING   ║█"
  1192.             TEXT "║  A MACRO'S ACTION TO USE ║█"
  1193.             TEXT "║      THIS COMMAND!       ║█"
  1194.             TEXT "║        ┌────────┐        ║█"
  1195.             TEXT "║        │ CANCEL │        ║█"
  1196.             TEXT "║        └────────┘        ║█"
  1197.             TEXT "╚══════════════════════════╝█"
  1198.             TEXT "█████████████████████████████"
  1199.  
  1200.             SELECT 6,12,6,exitcancel
  1201.             PEND
  1202.  
  1203. normalfontmsg:        POPUP 9,23,INVERSE
  1204.  
  1205.             TEXT "╔══════════════════════════════╗"
  1206.             TEXT "║  USE SHOW/HIDE CODES TOGGLE  ║█"
  1207.             TEXT "║  THEN ADD OR DELETE CODES AS ║█"
  1208.             TEXT "║    REQUIRED FOR PLAIN TEXT   ║█"
  1209.             TEXT "║  ┌────────────────────────┐  ║█"
  1210.             TEXT "║  │    GO TO EDIT MENU     │  ║█"
  1211.             TEXT "║  │(TO SELECT <SHOW CODES>)│  ║█"
  1212.             TEXT "║  └────────────────────────┘  ║█"
  1213.             TEXT "╚══════════════════════════════╝█"
  1214.             TEXT "█████████████████████████████████"
  1215.  
  1216.             SELECT 6,9,15,editmenu
  1217.             PEND
  1218.  
  1219. notpossmsg:        POPUP 9,24,INVERSE
  1220.  
  1221.             TEXT "╔════════════════════════════╗"
  1222.             TEXT "║ THIS WP MAC 1.0.1 FUNCTION ║█"
  1223.             TEXT "║  HAS NO EXACT EQUIVALENT   ║█"
  1224.             TEXT "║    IN WORDPERFECT 5.0      ║█"
  1225.             TEXT "║  ┌─────────────────────┐   ║█"
  1226.             TEXT "║  │ RETURN TO MAIN MENU │   ║█"
  1227.             TEXT "║  └─────────────────────┘   ║█"
  1228.             TEXT "╚════════════════════════════╝█"
  1229.             TEXT "███████████████████████████████"
  1230.  
  1231.             SELECT 6,6,19,macmenu
  1232.             PEND
  1233.  
  1234. aboutmsg:        POPUP 1,24,INVERSE
  1235.  
  1236.             TEXT "╔═════════════════════════════╗"
  1237.             TEXT "║  **  WP5MACMENU 3.1 (c) **  ║█"
  1238.             TEXT "║ WPMAC 1.0.2/Windows(R)-like ║█"
  1239.             TEXT "║      menu system for        ║█"
  1240.             TEXT "║   WordPerfect 5.0 (R) and   ║█"
  1241.             TEXT "║ LOGITECH (R) 3 button mouse ║█"
  1242.             TEXT "║by Dave Petherick (73627,226)║█"
  1243.             TEXT "║**REGISTER THIS SHAREWARE!!**║█"
  1244.             TEXT "║         ┌────────┐          ║█"
  1245.             TEXT "║ MAY/89  │ RETURN │ Ver. 3.1 ║█"
  1246.             TEXT "║         └────────┘          ║█"
  1247.             TEXT "║      Windows (R) is a       ║█"
  1248.             TEXT "║   registered trademark of   ║█"
  1249.             TEXT "║    Microsoft Corporation    ║█"
  1250.             TEXT "║    Redmond, WA, U.S.A.      ║█"
  1251.             TEXT "║    WordPerfect (R) is a     ║█"
  1252.             TEXT "║   registered trademark of   ║█"
  1253.             TEXT "║   WordPerfect Corporation   ║█"
  1254.             TEXT "║     Orem, Utah, U.S.A.      ║█"
  1255.             TEXT "║      LOGITECH (R) is a      ║█"
  1256.             TEXT "║   registered trademark of   ║█"
  1257.             TEXT "║      LOGITECH U.S.A.        ║█"
  1258.             TEXT "║     Fremont,CA, U.S.A.      ║█"
  1259.             TEXT "╚═════════════════════════════╝█"
  1260.             TEXT "████████████████████████████████"
  1261.  
  1262.             SELECT 8,4,25,sharewaremsg
  1263.             SELECT 10,13,6,helpmenu1
  1264.             PEND
  1265.  
  1266. sharewaremsg:        POPUP 2,21,INVERSE
  1267.  
  1268.             TEXT "╔════════════════════════════════════╗"
  1269.             TEXT "║    Please help encourage the       ║█"
  1270.             TEXT "║    development of this and         ║█"
  1271.             TEXT "║    similar software by registering ║█"
  1272.             TEXT "║    your copy.  Feel free to copy   ║█"
  1273.             TEXT "║    and distribute this software    ║█"
  1274.             TEXT "║    (UNMODIFIED) and if you find    ║█"
  1275.             TEXT "║    it of value, support it!        ║█"
  1276.             TEXT "║                                    ║█"
  1277.             TEXT "║    For $10, register your copy     ║█"
  1278.             TEXT "║    of WP5MACMENU and you will      ║█"
  1279.             TEXT "║    be entitled to free periodic    ║█"
  1280.             TEXT "║     updates and an UNLIMITED       ║█"
  1281.             TEXT "║ SITE LICENCE for corporate users!! ║█"
  1282.             TEXT "║             ┌────────┐             ║█"
  1283.             TEXT "║             │  NEXT  │             ║█"
  1284.             TEXT "║             └────────┘             ║█"
  1285.             TEXT "║   Source .DEF file included free!  ║█"
  1286.             TEXT "║                                    ║█"
  1287.             TEXT "╚════════════════════════════════════╝█"
  1288.             TEXT "███████████████████████████████████████"
  1289.  
  1290.             SELECT 16,18,4,sharenextmsg
  1291.             PEND
  1292.  
  1293. sharenextmsg:        POPUP 3,21,INVERSE
  1294.  
  1295.             TEXT "╔════════════════════════════════════╗"
  1296.             TEXT "║***SUPPORT THE SHAREWARE CONCEPT****║█"
  1297.             TEXT "║  Send check or money order along   ║█"
  1298.             TEXT "║ with your mouse type,diskette size,║█"
  1299.             TEXT "║   WP5MACMENU version number and    ║█"
  1300.             TEXT "║     your mailing address to:       ║█"
  1301.             TEXT "║                                    ║█"
  1302.             TEXT "║          Dave Petherick            ║█"
  1303.             TEXT "║          P.O. Box 1002             ║█"
  1304.             TEXT "║        Tottenham, Ontario          ║█"
  1305.             TEXT "║          CANADA L0G 1W0            ║█"
  1306.             TEXT "║                                    ║█"
  1307.             TEXT "║ Microsoft (R) and Logitech (R) two ║█"
  1308.             TEXT "║button mouse versions also available║█"
  1309.             TEXT "║             ┌────────┐             ║█"
  1310.             TEXT "║             │ RETURN │             ║█"
  1311.             TEXT "║             └────────┘             ║█"
  1312.             TEXT "╚════════════════════════════════════╝█"
  1313.             TEXT "███████████████████████████████████████"
  1314.  
  1315.             SELECT 16,17,6,helpmenu1
  1316.             PEND
  1317.  
  1318.